DEFINE I:WORD;
DEFINE K:WORD;
DEFINE J:BYTE;
DEFINE G:WORD;
BEGIN
CLRSCR;
J=1;
WRITE("Введите Xmax=");READ(G);NEWLINE;
WRITE("Введите Xexit=");READ(K);NEWLINE;
REPEAT
FOR(I=1>G)DO
BEGIN
IF(I==K)THEN
BEGIN
J=0;
WRITE("Ура работает ");
END
WRITE(I);NEWLINE;
END
UNTIL(J==0);
END.



